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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT ¢ 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS uit um: A LICENSE AND MAY BE USED AND sorte 
ONLY IN ACCORDANCE THE 


ORPORATION, MAYHARD. MASSACHUSETTS. 


WITH THE TERMS OF SUCH LICENSE AND WITH 


® 
* 
® 
® 
® 
> 
® 
& 
INCLUSION OF THE ABOVE opt NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY 4 BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
THER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
a 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE W 
AND SHOULD NOT GI 


ITHOUT NOTICE 
BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Vee eee PREAH AERA AAAAAAAAAEAAEAAAAAAEAAAAARAEAAAAAAREAAAAAAE EERE eee 


This is the common require file for any module written 
in BLISS 


i ENVIRONMENT : 


VAX/VMS operating system. 
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Equated symbols 

PSECT 
NODEFAULT = Lkcode_1 (EXECUTE, NOWRITE, READ, SHARE) 
NODEFAULT = Lkdata-1 (NOEXECUTE, NOWRITE, READ, SHARE); 


: Define structure type for VMS structures 


STRUCTURE 
bblock Co, p, $s, e; n) = 


n 
(bblock+o)<p,s,e>; 


MACRO 
return_if_error(command) = 
BEGIN 


LOCAL 
status; 


status = command; 
af NOT .status 


N 
QM nica Status 


ELS 
-Status 
END2; 


LITERAL 


ssi_entry = 0 ! normal system serice call 


! 
ssi_rundwn = 1, ! sys$rundwn ca 
ssi_srch = ¢: ! jump to SYSSSRCHANDLER 
ssi_cond = 3; ' call handler dispatch 


FIELD 
tvb 
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